home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 March / Amiga-CD 1996 #3.iso / pd-software / mui_3.1 / developer / oberon / txt / muiapplication.mod < prev    next >
Text File  |  1996-01-19  |  7KB  |  163 lines
  1. MODULE MUIApplication;
  2.  
  3. (* $StackChk- $NilChk- $RangeChk- $CaseChk- $OvflChk- $ReturnChk- $ClearVars- *)
  4.  
  5. (* This module is generated by "GenMuiO" © 1995 by Albert Weinert *)
  6.  
  7. IMPORT
  8.   clf := Classface,
  9.   e := Exec,
  10.   m := Mui,
  11.   RootClass,
  12.   SuperClass := MUISemaphore,
  13.   I := Intuition;
  14.  
  15. CONST
  16.   name *= m.cApplication;
  17.  
  18. TYPE
  19.   Class     *= UNTRACED POINTER TO ClassDesc;
  20.   ClassDesc *= RECORD( SuperClass.ClassDesc ) END;
  21.  
  22. VAR
  23.   class * : I.IClassPtr;
  24.  
  25.    PROCEDURE ( VAR c : ClassDesc ) mAddInputHandler*( VAR msg : m.pApplicationAddInputHandler ):e.APTR;
  26.      BEGIN
  27.        msg.msg.methodID := m.mApplicationAddInputHandler;
  28.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  29.      END mAddInputHandler;
  30.  
  31.    PROCEDURE ( VAR c : ClassDesc ) mCheckRefresh*( VAR msg : m.pApplicationCheckRefresh ):e.APTR;
  32.      BEGIN
  33.        msg.msg.methodID := m.mApplicationCheckRefresh;
  34.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  35.      END mCheckRefresh;
  36.  
  37.    PROCEDURE ( VAR c : ClassDesc ) mGetMenuCheck*( VAR msg : m.pApplicationGetMenuCheck ):e.APTR;
  38.      BEGIN
  39.        msg.msg.methodID := m.mApplicationGetMenuCheck;
  40.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  41.      END mGetMenuCheck;
  42.  
  43.    PROCEDURE ( VAR c : ClassDesc ) mGetMenuState*( VAR msg : m.pApplicationGetMenuState ):e.APTR;
  44.      BEGIN
  45.        msg.msg.methodID := m.mApplicationGetMenuState;
  46.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  47.      END mGetMenuState;
  48.  
  49.    PROCEDURE ( VAR c : ClassDesc ) mInput*( VAR msg : m.pApplicationInput ):e.APTR;
  50.      BEGIN
  51.        msg.msg.methodID := m.mApplicationInput;
  52.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  53.      END mInput;
  54.  
  55.    PROCEDURE ( VAR c : ClassDesc ) mInputBuffered*( VAR msg : m.pApplicationInputBuffered ):e.APTR;
  56.      BEGIN
  57.        msg.msg.methodID := m.mApplicationInputBuffered;
  58.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  59.      END mInputBuffered;
  60.  
  61.    PROCEDURE ( VAR c : ClassDesc ) mLoad*( VAR msg : m.pApplicationLoad ):e.APTR;
  62.      BEGIN
  63.        msg.msg.methodID := m.mApplicationLoad;
  64.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  65.      END mLoad;
  66.  
  67.    PROCEDURE ( VAR c : ClassDesc ) mNewInput*( VAR msg : m.pApplicationNewInput ):e.APTR;
  68.      BEGIN
  69.        msg.msg.methodID := m.mApplicationNewInput;
  70.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  71.      END mNewInput;
  72.  
  73.    PROCEDURE ( VAR c : ClassDesc ) mOpenConfigWindow*( VAR msg : m.pApplicationOpenConfigWindow ):e.APTR;
  74.      BEGIN
  75.        msg.msg.methodID := m.mApplicationOpenConfigWindow;
  76.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  77.      END mOpenConfigWindow;
  78.  
  79.    PROCEDURE ( VAR c : ClassDesc ) mPushMethod*( VAR msg : m.pApplicationPushMethod ):e.APTR;
  80.      BEGIN
  81.        msg.msg.methodID := m.mApplicationPushMethod;
  82.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  83.      END mPushMethod;
  84.  
  85.    PROCEDURE ( VAR c : ClassDesc ) mRemInputHandler*( VAR msg : m.pApplicationRemInputHandler ):e.APTR;
  86.      BEGIN
  87.        msg.msg.methodID := m.mApplicationRemInputHandler;
  88.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  89.      END mRemInputHandler;
  90.  
  91.    PROCEDURE ( VAR c : ClassDesc ) mReturnID*( VAR msg : m.pApplicationReturnID ):e.APTR;
  92.      BEGIN
  93.        msg.msg.methodID := m.mApplicationReturnID;
  94.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  95.      END mReturnID;
  96.  
  97.    PROCEDURE ( VAR c : ClassDesc ) mSave*( VAR msg : m.pApplicationSave ):e.APTR;
  98.      BEGIN
  99.        msg.msg.methodID := m.mApplicationSave;
  100.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  101.      END mSave;
  102.  
  103.    PROCEDURE ( VAR c : ClassDesc ) mSetConfigItem*( VAR msg : m.pApplicationSetConfigItem ):e.APTR;
  104.      BEGIN
  105.        msg.msg.methodID := m.mApplicationSetConfigItem;
  106.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  107.      END mSetConfigItem;
  108.  
  109.    PROCEDURE ( VAR c : ClassDesc ) mSetMenuCheck*( VAR msg : m.pApplicationSetMenuCheck ):e.APTR;
  110.      BEGIN
  111.        msg.msg.methodID := m.mApplicationSetMenuCheck;
  112.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  113.      END mSetMenuCheck;
  114.  
  115.    PROCEDURE ( VAR c : ClassDesc ) mSetMenuState*( VAR msg : m.pApplicationSetMenuState ):e.APTR;
  116.      BEGIN
  117.        msg.msg.methodID := m.mApplicationSetMenuState;
  118.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  119.      END mSetMenuState;
  120.  
  121.    PROCEDURE ( VAR c : ClassDesc ) mShowHelp*( VAR msg : m.pApplicationShowHelp ):e.APTR;
  122.      BEGIN
  123.        msg.msg.methodID := m.mApplicationShowHelp;
  124.        RETURN clf.DoSuperMethodA( c.class, c.object, msg )
  125.      END mShowHelp;
  126.  
  127.   PROCEDURE Dispatch * ( cl : I.IClassPtr; obj : I.ObjectPtr; msg : I.MsgPtr ):e.APTR;
  128.     VAR c : Class;
  129.     BEGIN
  130.       IF msg.methodID # I.new THEN
  131.         c := RootClass.BoopsiToObj( cl, obj )(Class);
  132.       END;
  133.  
  134.       CASE msg.methodID OF
  135.         | m.mApplicationAddInputHandler : RETURN c.mAddInputHandler( msg^(m.pApplicationAddInputHandler) );
  136.         | m.mApplicationCheckRefresh  : RETURN c.mCheckRefresh( msg^(m.pApplicationCheckRefresh) );
  137.         | m.mApplicationGetMenuCheck  : RETURN c.mGetMenuCheck( msg^(m.pApplicationGetMenuCheck) );
  138.         | m.mApplicationGetMenuState  : RETURN c.mGetMenuState( msg^(m.pApplicationGetMenuState) );
  139.         | m.mApplicationInput         : RETURN c.mInput( msg^(m.pApplicationInput) );
  140.         | m.mApplicationInputBuffered : RETURN c.mInputBuffered( msg^(m.pApplicationInputBuffered) );
  141.         | m.mApplicationLoad          : RETURN c.mLoad( msg^(m.pApplicationLoad) );
  142.         | m.mApplicationNewInput      : RETURN c.mNewInput( msg^(m.pApplicationNewInput) );
  143.         | m.mApplicationOpenConfigWindow : RETURN c.mOpenConfigWindow( msg^(m.pApplicationOpenConfigWindow) );
  144.         | m.mApplicationPushMethod    : RETURN c.mPushMethod( msg^(m.pApplicationPushMethod) );
  145.         | m.mApplicationRemInputHandler : RETURN c.mRemInputHandler( msg^(m.pApplicationRemInputHandler) );
  146.         | m.mApplicationReturnID      : RETURN c.mReturnID( msg^(m.pApplicationReturnID) );
  147.         | m.mApplicationSave          : RETURN c.mSave( msg^(m.pApplicationSave) );
  148.         | m.mApplicationSetConfigItem : RETURN c.mSetConfigItem( msg^(m.pApplicationSetConfigItem) );
  149.         | m.mApplicationSetMenuCheck  : RETURN c.mSetMenuCheck( msg^(m.pApplicationSetMenuCheck) );
  150.         | m.mApplicationSetMenuState  : RETURN c.mSetMenuState( msg^(m.pApplicationSetMenuState) );
  151.         | m.mApplicationShowHelp      : RETURN c.mShowHelp( msg^(m.pApplicationShowHelp) );
  152.       ELSE
  153.         RETURN SuperClass.Dispatch( cl, obj, msg );
  154.       END;
  155.     END Dispatch;
  156.  
  157. BEGIN
  158.   class := m.GetClass( name );
  159.   IF class = NIL THEN HALT( 205 ) END; (* Error : Object not Found *)
  160. CLOSE
  161.   IF class # NIL THEN m.FreeClass( class ) END;
  162. END MUIApplication.
  163.